home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
program
/
eflibpt4.zip
/
DEMO
/
TESTING
/
LARGELST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-08-16
|
784b
|
27 lines
{ Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
Testing; how data structures behave when memory is full
EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED. }
uses EFLIBDEF, EFLIBINI, EFLIBDAT;
const Storage = 65535;
var Structure : StructureObjectType;
MaximumStorage : pointer;
begin
GetMem (MaximumStorage, Storage);
{ Test the structures capacity }
with Structure do begin
Initialize (Storage);
while IsFree do Add (MaximumStorage^);
Intercept;
end;
FreeMem (MaximumStorage, Storage);
end.